home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / games / wotisit.lzx / wotisit.opl next >
Text File  |  1982-01-08  |  19KB  |  1,009 lines
  1. PROC start:
  2. LOCAL vers
  3. vers=5.06
  4. CLS
  5. gMOVE 40,10
  6. gLINEBY 160,0
  7. gLINEBY 0,-5
  8. gLINEBY -5,0
  9. gLINEBY 0,55
  10. gLINEBY -150,0
  11. gLINEBY 0,-55
  12. gLINEBY -5,0
  13. gLINEBY 0,5
  14. gAT 45,25:gFONT 2
  15. gPRINT "       Wotisit"
  16. gAT 45,35
  17. gPRINT "           by Keith Pirie"
  18. gAT 45,45
  19. gPRINT "             Version ",vers
  20. gAT 45,55
  21. gPRINT "                   @1994"
  22. PAUSE -100
  23. CLS
  24. wot:
  25. ENDP
  26.  
  27. PROC wot:
  28. GLOBAL wrd$(20),answr$(20),ans$(20),gs$(1)
  29. GLOBAL length%,sofar%,cor%,title$(45)
  30. LOCAL y$(1)
  31. cor%=0
  32. choose:
  33. CLS
  34. PRINT title$
  35. makeans:
  36. display:
  37. letter:
  38. ENDP
  39.  
  40. PROC letter:
  41. display:
  42. sofar%=1
  43. next::
  44. AT 1,5
  45. PRINT "Guess a Letter > ";
  46. INPUT gs$
  47. AT 1,7
  48. PRINT "Guesses so far > "
  49. AT sofar%,8
  50. PRINT gs$
  51. sofar%=sofar%+1
  52. check:
  53. GOTO next::
  54. ENDP
  55.  
  56. PROC check:
  57. LOCAL chk%,try$(2),temp1$(20),temp2$(20)
  58. LOCAL flg%
  59. chk%=1
  60. flg%=0
  61. DO
  62. try$=mid$(wrd$,chk%,1)
  63. IF gs$=try$
  64. GOTO yes::
  65. ENDIF
  66. chk%=chk%+1
  67. nxtcheck::
  68. UNTIL chk%-1= length%
  69. flg%=0
  70. GOTO no::
  71. back::
  72. GOTO out::
  73. yes::
  74. IF flg%=0
  75. cor%=cor%+1
  76. ENDIF
  77. flg%=1
  78. GIPRINT "GOOD GUESS",0
  79. BEEP 4,200
  80. GIPRINT "GOOD GUESS",2
  81. BEEP 4,300
  82. GIPRINT "GOOD GUESS",3
  83. BEEP 4,400
  84. GIPRINT "GOOD GUESS",1
  85. BEEP 4,500
  86. GIPRINT "GOOD GUESS",0
  87. BEEP 4,200
  88. GIPRINT "GOOD GUESS",2
  89. BEEP 4,300
  90. GIPRINT "GOOD GUESS",3
  91. BEEP 4,400
  92. GIPRINT "GOOD GUESS",1
  93. BEEP 4,500
  94. GIPRINT""
  95.  
  96. temp1$=""
  97. temp2$=""
  98. AT chk%,3
  99. PRINT try$
  100. temp1$=left$(ans$,chk%-1)
  101. temp2$=right$(ans$,(length%-(chk%)))
  102. ans$=temp1$+gs$+temp2$
  103. try$=""
  104. chk%=chk%+1
  105.  
  106. IF ans$=wrd$
  107. finished:
  108. ELSE  GOTO nxtcheck::
  109. ENDIF
  110.  
  111. GOTO back::
  112.  
  113. no::
  114. BEEP 4,600
  115. GOTO back::
  116. out::
  117. ENDP
  118.  
  119. PROC finished:
  120. LOCAL y$(1),pr%,p%,result%
  121. CLS
  122. result%=(sofar%-1)-cor%
  123.  
  124. IF result%<2
  125. PRINT "Well done."
  126. ELSEIF result% >=2 and result% <4
  127. PRINT "Not bad."
  128. ELSEIF result% >=4 and result% <6
  129. PRINT "You could do better."
  130. ELSEIF result% >=6 and result% <9
  131. PRINT "Come on that's rubbish."
  132. ELSEIF result% >=9
  133. PRINT "Why did you bother?"
  134. ENDIF
  135.  
  136. PRINT "The word was ";ans$;"."
  137. PRINT "You solved it with"
  138.  
  139. IF result%=1
  140. PRINT result%;" mistake."
  141. ELSE
  142. PRINT result%;" mistakes."
  143. ENDIF
  144.  
  145. BEEP 16,300
  146. BEEP 16,600
  147. BEEP 16,300
  148. PRINT
  149.  
  150. PAUSE 50
  151. dINIT "Wotisit"
  152. dCHOICE pr%,"Another?","Yes,No"
  153. p%=DIALOG
  154. p%=pr%
  155.  
  156. IF p%=2
  157.     STOP
  158. ENDIF
  159.  
  160. CLS
  161. wot:
  162. ENDP
  163.  
  164. PROC makeans:
  165. LOCAL count%
  166. count% =0
  167. ans$=""
  168. DO
  169. ans$=ans$+"*"
  170. count%=count%+1
  171. UNTIL length%=count%
  172. ENDP
  173.  
  174. PROC display:
  175. AT 1,3
  176. PRINT ans$
  177. ENDP
  178.  
  179.  
  180. PROC scot:
  181. LOCAL num,word$(50,10)
  182. num=int (rnd*50)+1
  183. word$(1)="glasgow"
  184. word$(2)="aberdeen"
  185. word$(3)="dundee"
  186. word$(4)="montrose"
  187. word$(5)="edinburgh"
  188. word$(6)="inverness"
  189. word$(7)="dunblane"
  190. word$(8)="perth"
  191. word$(9)="hamilton"
  192. word$(10)="elgin"
  193. word$(11)="kelso"
  194. word$(12)="lauder"
  195. word$(13)="thurso"
  196. word$(14)="oban"
  197. word$(15)="wick"
  198. word$(16)="dumfries"
  199. word$(17)="lerwick"
  200. word$(18)="banff"
  201. word$(19)="banchory"
  202. word$(20)="stirling"
  203. word$(21)="stonehaven"
  204. word$(22)="peterhead"
  205. word$(23)="motherwell"
  206. word$(24)="ayr"
  207. word$(25)="kilmarnock"
  208. word$(26)="greenock"
  209. word$(27)="paisley"
  210. word$(28)="buckie"
  211. word$(29)="berwick"
  212. word$(30)="callander"
  213. word$(31)="tobermory"
  214. word$(32)="stornoway"
  215. word$(33)="largs"
  216. word$(34)="gretna"
  217. word$(35)="rosyth"
  218. word$(36)="glenrothes"
  219. word$(37)="cupar"
  220. word$(38)="scone"
  221. word$(39)="doune"
  222. word$(40)="tarbert"
  223. word$(41)="aboyne"
  224. word$(42)="braemar"
  225. word$(43)="kirkcaldy"
  226. word$(44)="aviemore"
  227. word$(45)="melrose"
  228. word$(46)="galashiels"
  229. word$(47)="brechin"
  230. word$(48)="arbroath"
  231. word$(49)="bathgate"
  232. word$(50)="livingston"
  233. wrd$=word$(num)
  234. title$="             SCOTTISH TOWNS"
  235. length%=len (wrd$)
  236. ENDP
  237.  
  238. PROC eng:
  239. LOCAL num,word$(50,10)
  240. num=int (rnd*50)+1
  241. word$(1)="london"
  242. word$(2)="birmingham"
  243. word$(3)="manchester"
  244. word$(4)="newcastle"
  245. word$(5)="gloucester"
  246. word$(6)="crewe"
  247. word$(7)="sunderland"
  248. word$(8)="pentrith"
  249. word$(9)="carlisle"
  250. word$(10)="liverpool"
  251. word$(11)="southport"
  252. word$(12)="portsmouth"
  253. word$(13)="coventry"
  254. word$(14)="penzance"
  255. word$(15)="durham"
  256. word$(16)="stafford"
  257. word$(17)="bath"
  258. word$(18)="truro"
  259. word$(19)="bognor"
  260. word$(20)="sheffield"
  261. word$(21)="bradford"
  262. word$(22)="leeds"
  263. word$(23)="york"
  264. word$(24)="oxford"
  265. word$(25)="cambridge"
  266. word$(26)="derby"
  267. word$(27)="norwich"
  268. word$(28)="dover"
  269. word$(29)="hull"
  270. word$(30)="grimsby"
  271. word$(31)="blackpool"
  272. word$(32)="stoke"
  273. word$(33)="kendal"
  274. word$(34)="ipswich"
  275. word$(35)="brighton"
  276. word$(36)="bristol"
  277. word$(37)="chester"
  278. word$(38)="droitwich"
  279. word$(39)="lancaster"
  280. word$(40)="preston"
  281. word$(41)="maidenhead"
  282. word$(42)="maidstone"
  283. word$(43)="reading"
  284. word$(44)="leicester"
  285. word$(45)="chelmsford"
  286. word$(46)="gillingham"
  287. word$(47)="warwick"
  288. word$(48)="rugby"
  289. word$(49)="nottingham"
  290. word$(50)="rochdale"
  291. wrd$=word$(num)
  292. title$="             ENGLISH TOWNS"
  293. length%=len (wrd$)
  294. ENDP
  295.  
  296. PROC sport:
  297. LOCAL num,word$(50,10)
  298. num=int (rnd*50)+1
  299. word$(1)="darts"
  300. word$(2)="rugby"
  301. word$(3)="football"
  302. word$(4)="billiards"
  303. word$(5)="basketball"
  304. word$(6)="netball"
  305. word$(7)="hockey"
  306. word$(8)="archery"
  307. word$(9)="athletics"
  308. word$(10)="discus"
  309. word$(11)="cycling"
  310. word$(12)="yachting"
  311. word$(13)="swimming"
  312. word$(14)="sailing"
  313. word$(15)="lacrosse"
  314. word$(16)="baseball"
  315. word$(17)="boxing"
  316. word$(18)="wrestling"
  317. word$(19)="fencing"
  318. word$(20)="judo"
  319. word$(21)="karate"
  320. word$(22)="golf"
  321. word$(23)="rallying"
  322. word$(24)="javelin"
  323. word$(25)="shinty"
  324. word$(26)="badminton"
  325. word$(27)="tennis"
  326. word$(28)="pole vault"
  327. word$(29)="high jump"
  328. word$(30)="surfing"
  329. word$(31)="long jump"
  330. word$(32)="shot putt"
  331. word$(33)="marathon"
  332. word$(34)="jogging"
  333. word$(35)="aerobics"
  334. word$(36)="squash"
  335. word$(37)="diving"
  336. word$(38)="polo"
  337. word$(39)="water polo"
  338. word$(40)="riding"
  339. word$(41)="skating"
  340. word$(42)="ice hockey"
  341. word$(43)="curling"
  342. word$(44)="bowls"
  343. word$(45)="snooker"
  344. word$(46)="cricket"
  345. word$(47)="volleyball"
  346. word$(48)="croquet"
  347. word$(49)="shooting"
  348. word$(50)="skateboard"
  349. wrd$=word$(num)
  350. title$="                 SPORTS"
  351. length%=len (wrd$)
  352. ENDP
  353.  
  354. PROC spanish:
  355. LOCAL num,word$(50,10)
  356. num=int (rnd*50)+1
  357. word$(1)="casa"
  358. word$(2)="dia"
  359. word$(3)="beuno"
  360. word$(4)="donde"
  361. word$(5)="hablar"
  362. word$(6)="lunes"
  363. word$(7)="quatro"
  364. word$(8)="quarto"
  365. word$(9)="noches"
  366. word$(10)="cinco"
  367. word$(11)="enrero"
  368. word$(12)="porque"
  369. word$(13)="pues"
  370. word$(14)="hasta"
  371. word$(15)="playa"
  372. word$(16)="habitacion"
  373. word$(17)="farmacia"
  374. word$(18)="coche"
  375. word$(19)="muchas"
  376. word$(20)="calor"
  377. word$(21)="frio"
  378. word$(22)="beber"
  379. word$(23)="policia"
  380. word$(24)="domingo"
  381. word$(25)="carne"
  382. word$(26)="naranja"
  383. word$(27)="platano"
  384. word$(28)="huevo"
  385. word$(29)="idioma"
  386. word$(30)="espanol"
  387. word$(31)="todo"
  388. word$(32)="mundo"
  389. word$(33)="el"
  390. word$(34)="la"
  391. word$(35)="si"
  392. word$(36)="no"
  393. word$(37)="douche"
  394. word$(38)="desayuno"
  395. word$(39)="miercoles"
  396. word$(40)="julio"
  397. word$(41)="ano"
  398. word$(42)="cerveza"
  399. word$(43)="vino"
  400. word$(44)="sangria"
  401. word$(45)="alemanes"
  402. word$(46)="escoces"
  403. word$(47)="senor"
  404. word$(48)="senora"
  405. word$(49)="senorina"
  406. word$(50)="mujer"
  407. wrd$=word$(num)
  408. title$="              SPANISH WORDS"
  409. length%=len (wrd$)
  410. ENDP
  411.  
  412. PROC animals:
  413. LOCAL num,word$(50,10)
  414. num=int (rnd*50)+1
  415. word$(1)="bear"
  416. word$(2)="dog"
  417. word$(3)="cat"
  418. word$(4)="lion"
  419. word$(5)="tiger"
  420. word$(6)="elephant"
  421. word$(7)="giraffe"
  422. word$(8)="whale"
  423. word$(9)="horse"
  424. word$(10)="lynx"
  425. word$(11)="leopard"
  426. word$(12)="puma"
  427. word$(13)="goat"
  428. word$(14)="pig"
  429. word$(15)="wolf"
  430. word$(16)="llama"
  431. word$(17)="camel"
  432. word$(18)="hyena"
  433. word$(19)="monkey"
  434. word$(20)="ape"
  435. word$(21)="babboon"
  436. word$(22)="gorilla"
  437. word$(23)="raccoon"
  438. word$(24)="possum"
  439. word$(25)="sloth"
  440. word$(26)="skunk"
  441. word$(27)="rhino"
  442. word$(28)="hippo"
  443. word$(29)="kangaroo"
  444. word$(30)="wallaby"
  445. word$(31)="platypus"
  446. word$(32)="snake"
  447. word$(33)="cobra"
  448. word$(34)="koala"
  449. word$(35)="zebra"
  450. word$(36)="sheep"
  451. word$(37)="squirrel"
  452. word$(38)="otter"
  453. word$(39)="martin"
  454. word$(40)="dingo"
  455. word$(41)="gazelle"
  456. word$(42)="eland"
  457. word$(43)="walrus"
  458. word$(44)="seal"
  459. word$(45)="frog"
  460. word$(46)="toad"
  461. word$(47)="hedgehog"
  462. word$(48)="badger"
  463. word$(49)="fox"
  464. word$(50)="bat"
  465. wrd$=word$(num)
  466. title$="               ANIMALS"
  467. length%=len (wrd$)
  468. ENDP
  469.  
  470. PROC cars:
  471. LOCAL num,word$(50,10)
  472. num=int (rnd*50)+1
  473. word$(1)="metro"
  474. word$(2)="mini"
  475. word$(3)="cavalier"
  476. word$(4)="maestro"
  477. word$(5)="rover"
  478. word$(6)="vauxhall"
  479. word$(7)="ford"
  480. word$(8)="escort"
  481. word$(9)="fiesta"
  482. word$(10)="sierra"
  483. word$(11)="mondeo"
  484. word$(12)="nova"
  485. word$(13)="astra"
  486. word$(14)="citroen"
  487. word$(15)="lada"
  488. word$(16)="samara"
  489. word$(17)="riva"
  490. word$(18)="renault"
  491. word$(19)="clio"
  492. word$(20)="laguna"
  493. word$(21)="espace"
  494. word$(22)="colt"
  495. word$(23)="mitsibushi"
  496. word$(24)="galant"
  497. word$(25)="subaru"
  498. word$(26)="justy"
  499. word$(27)="honda"
  500. word$(28)="civic"
  501. word$(29)="accord"
  502. word$(30)="fiat"
  503. word$(31)="tempra"
  504. word$(32)="tipo"
  505. word$(33)="alfa"
  506. word$(34)="carlton"
  507. word$(35)="senator"
  508. word$(36)="omega"
  509. word$(37)="granada"
  510. word$(38)="morris"
  511. word$(39)="austin"
  512. word$(40)="kia"
  513. word$(41)="pride"
  514. word$(42)="mercedes"
  515. word$(43)="proton"
  516. word$(44)="hyundai"
  517. word$(45)="shogun"
  518. word$(46)="discovery"
  519. word$(47)="jaguar"
  520. word$(48)="daimler"
  521. word$(49)="uno"
  522. word$(50)="seat"
  523. wrd$=word$(num)
  524. title$="                  CARS"
  525. length%=len (wrd$)
  526. ENDP
  527.  
  528.  
  529. PROC birds:
  530. LOCAL num,word$(50,10)
  531. num=int (rnd*50)+1
  532. word$(1)="sparrow"
  533. word$(2)="blackbird"
  534. word$(3)="robin"
  535. word$(4)="starling"
  536. word$(5)="crow"
  537. word$(6)="rook"
  538. word$(7)="seagull"
  539. word$(8)="peewit"
  540. word$(9)="pheasant"
  541. word$(10)="partridge"
  542. word$(11)="eagle"
  543. word$(12)="owl"
  544. word$(13)="heron"
  545. word$(14)="buzzard"
  546. word$(15)="kestrel"
  547. word$(16)="hawk"
  548. word$(17)="duck"
  549. word$(18)="cormorant"
  550. word$(19)="shag"
  551. word$(20)="swallow"
  552. word$(21)="swift"
  553. word$(22)="lapwing"
  554. word$(23)="curlew"
  555. word$(24)="jackdaw"
  556. word$(25)="waxwing"
  557. word$(26)="kingfisher"
  558. word$(27)="wren"
  559. word$(28)="pigeon"
  560. word$(29)="dove"
  561. word$(30)="dipper"
  562. word$(31)="kittiwake"
  563. word$(32)="puffin"
  564. word$(33)="coot"
  565. word$(34)="tern"
  566. word$(35)="skua"
  567. word$(36)="petrel"
  568. word$(37)="cuckoo"
  569. word$(38)="chicken"
  570. word$(39)="turkey"
  571. word$(40)="ptarmigan"
  572. word$(41)="lark"
  573. word$(42)="thrush"
  574. word$(43)="goose"
  575. word$(44)="martin"
  576. word$(45)="tit"
  577. word$(46)="warbler"
  578. word$(47)="hoopoe"
  579. word$(48)="bantam"
  580. word$(49)="capon"
  581. word$(50)="pippit"
  582. wrd$=word$(num)
  583. title$="                BIRDS"
  584. length%=len (wrd$)
  585. ENDP
  586.  
  587. PROC computer:
  588. LOCAL num,word$(50,10)
  589. num=int (rnd*50)+1
  590. word$(1)="processor"
  591. word$(2)="terminal"
  592. word$(3)="compaq"
  593. word$(4)="intel"
  594. word$(5)="laser"
  595. word$(6)="printer"
  596. word$(7)="dot matrix"
  597. word$(8)="tandem"
  598. word$(9)="zenith"
  599. word$(10)="modem"
  600. word$(11)="handshake"
  601. word$(12)="graphics"
  602. word$(13)="interface"
  603. word$(14)="card"
  604. word$(15)="bus"
  605. word$(16)="port"
  606. word$(17)="sound card"
  607. word$(18)="video card"
  608. word$(19)="mouse"
  609. word$(20)="mouse mat"
  610. word$(21)="scanner"
  611. word$(22)="tablet"
  612. word$(23)="light gun"
  613. word$(24)="light pen"
  614. word$(25)="epson"
  615. word$(26)="proprint"
  616. word$(27)="ink jet"
  617. word$(28)="compatible"
  618. word$(29)="ribbon"
  619. word$(30)="floppy"
  620. word$(31)="megabyte"
  621. word$(32)="kilobyte"
  622. word$(33)="memory"
  623. word$(34)="device"
  624. word$(35)="on line"
  625. word$(36)="off line"
  626. word$(37)="technology"
  627. word$(38)="gateway"
  628. word$(39)="windows"
  629. word$(40)="microsoft"
  630. word$(41)="dos"
  631. word$(42)="data"
  632. word$(43)="array"
  633. word$(44)="variable"
  634. word$(45)="psion"
  635. word$(46)="ibm"
  636. word$(47)="icl"
  637. word$(48)="vdu"
  638. word$(49)="program"
  639. word$(50)="computer"
  640. wrd$=word$(num)
  641. title$="             COMPUTER WORLD"
  642. length%=len (wrd$)
  643. ENDP
  644.  
  645. PROC country:
  646. LOCAL num,word$(50,10)
  647. num=int (rnd*50)+1
  648. word$(1)="scotland"
  649. word$(2)="england"
  650. word$(3)="ireland"
  651. word$(4)="wales"
  652. word$(5)="cuba"
  653. word$(6)="egypt"
  654. word$(7)="holland"
  655. word$(8)="germany"
  656. word$(9)="sweden"
  657. word$(10)="finland"
  658. word$(11)="norway"
  659. word$(12)="hungary"
  660. word$(13)="turkey"
  661. word$(14)="france"
  662. word$(15)="tunisia"
  663. word$(16)="algeria"
  664. word$(17)="portugal"
  665. word$(18)="italy"
  666. word$(19)="brazil"
  667. word$(20)="argentina"
  668. word$(21)="canada"
  669. word$(22)="america"
  670. word$(23)="denmark"
  671. word$(24)="russia"
  672. word$(25)="iceland"
  673. word$(26)="austria"
  674. word$(27)="australia"
  675. word$(28)="singapore"
  676. word$(29)="thialand"
  677. word$(30)="japan"
  678. word$(31)="china"
  679. word$(32)="india"
  680. word$(33)="tibet"
  681. word$(34)="angola"
  682. word$(35)="andorra"
  683. word$(36)="korea"
  684. word$(37)="arabia"
  685. word$(38)="romania"
  686. word$(39)="belgium"
  687. word$(40)="zaire"
  688. word$(41)="zimbabwe"
  689. word$(42)="kuwait"
  690. word$(43)="jamacia"
  691. word$(44)="pakistan"
  692. word$(45)="sumatra"
  693. word$(46)="gibralter"
  694. word$(47)="mexico"
  695. word$(48)="uraguay"
  696. word$(49)="paraguay"
  697. word$(50)="peru"
  698. wrd$=word$(num)
  699. title$="               COUNTRIES"
  700. length%=len (wrd$)
  701. ENDP
  702.  
  703. PROC football:
  704. LOCAL num,word$(50,20)
  705. num=int (rnd*50)+1
  706. word$(1)="aberdeen"
  707. word$(2)="dundee utd"
  708. word$(3)="dundee"
  709. word$(4)="morton"
  710. word$(5)="rangers"
  711. word$(6)="celtic"
  712. word$(7)="st mirren"
  713. word$(8)="hearts"
  714. word$(9)="hibs"
  715. word$(10)="everton"
  716. word$(11)="liverpool"
  717. word$(12)="chelsea"
  718. word$(13)="southampton"
  719. word$(14)="portsmouth"
  720. word$(15)="manchester utd"
  721. word$(16)="dunfermline"
  722. word$(17)="st johnstone"
  723. word$(18)="birmingham city"
  724. word$(19)="blackpool"
  725. word$(20)="coventry city"
  726. word$(21)="partick thistle"
  727. word$(22)="newcastle utd"
  728. word$(23)="grimsby town"
  729. word$(24)="sunderland"
  730. word$(25)="derby county"
  731. word$(26)="swindon town"
  732. word$(27)="aston villa"
  733. word$(28)="west ham utd"
  734. word$(29)="ayr utd"
  735. word$(30)="queens park"
  736. word$(31)="backburn"
  737. word$(32)="preston north end"
  738. word$(33)="gillingham"
  739. word$(34)="cowdenbeath"
  740. word$(35)="stenhousemuir"
  741. word$(36)="berwick rangers"
  742. word$(37)="arbroath"
  743. word$(38)="brechin city"
  744. word$(39)="cardiff city"
  745. word$(40)="swansea city"
  746. word$(41)="watford"
  747. word$(42)="fulham"
  748. word$(43)="millwall"
  749. word$(44)="rochdale"
  750. word$(45)="notts forest"
  751. word$(46)="notts county"
  752. word$(47)="scunthorpe utd"
  753. word$(48)="raith rovers"
  754. word$(49)="stirling albion"
  755. word$(50)="carlisle utd"
  756. wrd$=word$(num)
  757. title$="         BRITISH FOOTBALL TEAMS"
  758. length%=len (wrd$)
  759. ENDP
  760.  
  761. PROC ecity:
  762. LOCAL num,word$(50,20)
  763. num=int (rnd*50)+1
  764. word$(1)="amsterdam"
  765. word$(2)="barcelona"
  766. word$(3)="venice"
  767. word$(4)="paris"
  768. word$(5)="rome"
  769. word$(6)="oslo"
  770. word$(7)="munich"
  771. word$(8)="rotterdam"
  772. word$(9)="naples"
  773. word$(10)="milan"
  774. word$(11)="brussells"
  775. word$(12)="madrid"
  776. word$(13)="valencia"
  777. word$(14)="bruges"
  778. word$(15)="prague"
  779. word$(16)="sofia"
  780. word$(17)="moscow"
  781. word$(18)="gothenberg"
  782. word$(19)="ostend"
  783. word$(20)="dusseldorf"
  784. word$(21)="lisbon"
  785. word$(22)="helsinki"
  786. word$(23)="riga"
  787. word$(24)="nice"
  788. word$(25)="monaco"
  789. word$(26)="copenhagen"
  790. word$(27)="marsaille"
  791. word$(28)="stuttgart"
  792. word$(29)="kiev"
  793. word$(30)="saltzberg"
  794. word$(31)="st petersberg"
  795. word$(32)="faro"
  796. word$(33)="verona"
  797. word$(34)="florence"
  798. word$(35)="frankfurt"
  799. word$(36)="gdansk"
  800. word$(37)="geneva"
  801. word$(38)="antwerp"
  802. word$(39)="ghent"
  803. word$(40)="le havre"
  804. word$(41)="stockholm"
  805. word$(42)="bergen"
  806. word$(43)="berne"
  807. word$(44)="geneva"
  808. word$(45)="zurich"
  809. word$(46)="berlin"
  810. word$(47)="genoa"
  811. word$(48)="turin"
  812. word$(49)="bologna"
  813. word$(50)="eindhoven"
  814. wrd$=word$(num)
  815. title$="             EUROPEAN CITIES"
  816. length%=len (wrd$)
  817. ENDP
  818.  
  819. PROC tv:
  820. LOCAL num,word$(50,20)
  821. num=int (rnd*50)+1
  822. word$(1)="coronation st"
  823. word$(2)="countdown"
  824. word$(3)="brookside"
  825. word$(4)="eastenders"
  826. word$(5)="news"
  827. word$(6)="panorama"
  828. word$(7)="the bill"
  829. word$(8)="pebble mill"
  830. word$(9)="the flintstones"
  831. word$(10)="tommorrows world"
  832. word$(11)="world of sport"
  833. word$(12)="home and away"
  834. word$(13)="neighbours"
  835. word$(14)="this is your life"
  836. word$(15)="young doctors"
  837. word$(16)="wildlife on one"
  838. word$(17)="blue peter"
  839. word$(18)="munsters"
  840. word$(19)="desmonds"
  841. word$(20)="question of sport"
  842. word$(21)="telly addicts"
  843. word$(22)="happy days"
  844. word$(23)="wonder years"
  845. word$(24)="roseanne"
  846. word$(25)="gardeners world"
  847. word$(26)="red dwarf"
  848. word$(27)="stars in their eyes"
  849. word$(28)="opportunity knocks"
  850. word$(29)="magic roundabout"
  851. word$(30)="clothes show"
  852. word$(31)="the big breakfast"
  853. word$(32)="scooby doo"
  854. word$(33)="rab c nesbitt"
  855. word$(34)="this morning"
  856. word$(35)="emmerdale"
  857. word$(36)="thats showbusiness"
  858. word$(37)="cagney and lacey"
  859. word$(38)="knots landing"
  860. word$(39)="dallas"
  861. word$(40)="dynasty"
  862. word$(41)="fools and horses"
  863. word$(42)="the weather"
  864. word$(43)="jimmys"
  865. word$(44)="macgyver"
  866. word$(45)="going for gold"
  867. word$(46)="gladiators"
  868. word$(47)="newsround"
  869. word$(48)="black beauty"
  870. word$(49)="generation game"
  871. word$(50)="record breakers"
  872. wrd$=word$(num)
  873. title$="             TV PROGRAMMES"
  874. length%=len (wrd$)
  875. ENDP
  876.  
  877. PROC shops:
  878. LOCAL num,word$(50,20)
  879. num=int (rnd*50)+1
  880. word$(1)="boots"
  881. word$(2)="woolworths"
  882. word$(3)="marks and spencer"
  883. word$(4)="milletts"
  884. word$(5)="timpsons"
  885. word$(6)="virgin"
  886. word$(7)="sainsbury"
  887. word$(8)="tesco"
  888. word$(9)="asda"
  889. word$(10)="ratners"
  890. word$(11)="safeway"
  891. word$(12)="dolcis"
  892. word$(13)="dixons"
  893. word$(14)="currys"
  894. word$(15)="w h smith"
  895. word$(16)="h samuels"
  896. word$(17)="wimpy"
  897. word$(18)="burger king"
  898. word$(19)="mcdonalds"
  899. word$(20)="h m v"
  900. word$(21)="comet"
  901. word$(22)="thorntons"
  902. word$(23)="john lewis"
  903. word$(24)="jessop"
  904. word$(25)="littlewoods"
  905. word$(26)="c and a"
  906. word$(27)="inter sport"
  907. word$(28)="sports division"
  908. word$(29)="ernest jones"
  909. word$(30)="next"
  910. word$(31)="richards"
  911. word$(32)="burtons"
  912. word$(33)="athena"
  913. word$(34)="texas"
  914. word$(35)="focus"
  915. word$(36)="b and q"
  916. word$(37)="halfords"
  917. word$(38)="argos"
  918. word$(39)="tandy"
  919. word$(40)="index"
  920. word$(41)="dillons"
  921. word$(42)="body shop"
  922. word$(43)="tie rack"
  923. word$(44)="sock shop"
  924. word$(45)="olivers"
  925. word$(46)="etam"
  926. word$(47)="textile world"
  927. word$(48)="timothy white"
  928. word$(49)="superdrug"
  929. word$(50)="game zone"
  930. wrd$=word$(num)
  931. title$="            HIGH STREET SHOPS"
  932. length%=len (wrd$)
  933. ENDP
  934.  
  935. PROC choose:
  936. GLOBAL sub,sel$(24)
  937. sel$="Wotisit - Which Subject"
  938. dINIT sel$
  939. dTEXT "1","Television Programmes",$400
  940. dTEXT "2","Football Teams",$400
  941. dTEXT "3","Sports",$400
  942. dTEXT "4","Cars",$400
  943. dTEXT "5","Computer World",$400
  944. dTEXT "6","Next Page",$400
  945. sub =dialog-1
  946. if sub=1
  947. tv:
  948. ELSEIF sub=2
  949. football:
  950. ELSEIF sub=3
  951. sport:
  952. ELSEIF sub=4
  953. cars:
  954. ELSEIF sub=5
  955. computer:
  956. ELSEIF sub=6
  957. page2:
  958. endif
  959. ENDP
  960.  
  961. PROC page2:
  962. dINIT sel$
  963. dTEXT "1","Countries",$400
  964. dTEXT "2","European Cities",$400
  965. dTEXT "3","English Towns",$400
  966. dTEXT "4","Scottish Towns",$400
  967. dTEXT "5","Previous Page ",$400
  968. dTEXT "6","Next Page",$400
  969. sub =dialog-1
  970. if sub=1
  971. country:
  972. ELSEIF sub=2
  973. ecity:
  974. ELSEIF sub=3
  975. eng:
  976. ELSEIF sub=4
  977. scot:
  978. ELSEIF sub=5
  979. choose:
  980. ELSEIF sub=6
  981. page3:
  982. endif
  983. ENDP
  984.  
  985. PROC page3:
  986. dINIT sel$
  987. dTEXT "1","Animals",$400
  988. dTEXT "2","Birds",$400
  989. dTEXT "3","Spanish",$400
  990. dTEXT "4","Shops",$400
  991. dTEXT "5","Previous Page",$400
  992. dTEXT "6","Stop Progam",$400
  993. sub =dialog-1
  994. IF sub=1
  995. animals:
  996. ELSEIF sub=2
  997. birds:
  998. ELSEIF sub=3
  999. spanish:
  1000. ELSEIF sub=4
  1001. shops:
  1002. ELSEIF sub=5
  1003. page2:
  1004. ELSEIF sub=6
  1005. STOP
  1006. ENDIF
  1007. ENDP
  1008.  
  1009.